<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.ycl</name>
<id>-1</id>
<cardCount>63</cardCount>
<cardID>5265</cardID>
<listID>35931</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>480</height>
</cardSize>
<script>on resumeStackdisable menuItem "Print Text" of menu "File"disable menuItem "Print Image" of menu "File"enable menu "Edit"enable menu "Go"disable menuItem "Copy Text" of menu "Edit"disable menuItem "Copy Image" of menu "Edit"end resumeStackon openCardSend colorMe to this card-- put the number of lines in the voices into x-- answer xpass openCardunlock screenend openCardon doMenu menuItem-- put menuItemif menuItem is "Go Back" thenWTIgobackelse if menuItem is "Help" thenWTIhelpexit doMenuelse if menuItem is "Main" thenWTImainelse if menuItem is "Gallery" thenWTIgalleryelse if menuItem is "Explorer" thenWTIexploreelse if menuItem is "Credits" thenWTIcreditselse if menuItem is "Encyclopedia" thenWTIencyclelse if menuItem is "Languages" thengo to card 1 of stack "Guinness:mac:language samples" in a new windowelse if menuItem is "About Hypercard..." thenWTIcreditsexit doMenuelse if menuItem is "Quit Encyclopedia" thendoMenu "Quit HyperCard"exit doMenuend ifpass doMenuend doMenuon WTIcreditsgo to card 1 of stack "16in Credits"end WTIcreditson closeCardglobal lastCard, lastBookput "encyclopedia" into lastBookput the number of this card into lastCardlock screenpass closeCardend closeCardon colorMeAddColor colorCard,stamp,30end colorMeon openStackset lockscreen to trueAddColor installdisable menuItem "Print Text" of menu "File"disable menuItem "Print Image" of menu "File"enable menu "Edit"enable menu "Go"disable menuItem "Copy Text" of menu "Edit"disable menuItem "Copy Image" of menu "Edit"pass openStackset lockscreen to falseend openStackon closeStackAddColor removepass closeStackend closeStackon WTIgoButton CardNif charToNum( CardN ) = charToNum("x") thengo to card CardN-- go to card CardN of stack "Guinness:Mac:encyclopedia"-- go to card 1 of stack "Guinness:Mac:encyclopedia"elseWTIgotoPage CardNend ifend WTIgoButtonon WTInextgo to nextend WTInexton WTIpreviousgo to previousend WTIpreviouson WTImaingo to card 1 of stack "Guinness:Mac:16in Main"end WTImainon WTIhelpgo to card 1 of stack "Guinness:Mac:16in Help"end WTIhelpon WTIquitdoMenu "Quit HyperCard"end WTIquiton WTIexplorego to card 1 of stack "Guinness:Mac:16in Explorer"end WTIexploreon WTIgallerygo to card 1 of stack "Guinness:Mac:16in Gallery"end WTIgalleryon WTIencyclgo to card 1 of stack "Guinness:Mac:16in Encyclopedia"end WTIencyclon WTIgoback-- global lastCard, lastBook-- go to card lastCard of lastBookgo to recent cardend WTIgobackon WTIgotopage CardN-- go to card CardN-- answer "go to card # " & CardN && "not in yet!"-- put CharToNum(CardN) into pp-- fix itput trunc( ((CardN)/2) ) * 2 into pp-- if pp -- make sure is even!!!if pp < 10 then -- pad with 000's--put NumToChar(pp) into xput "p00" & pp & "-1" into pppelse if pp < 99 then-- put NumToChar(pp) into xput "p0" & pp & "-1" into pppelse-- put NumToChar(pp) into xput "p" & pp & "-1" into pppend if-- put CardN && pp && ppp && char 2 to 6 of pppif last char of ppp is return thendelete last char of pppend ifif pp < 74 thengo to card ppp of stack "Guinness:MAC:Nature:16in Nature"else if pp < 106 thengo to card ppp of stack "Guinness:MAC:Earth:16in Earth"else if pp < 198 thengo to card ppp of stack "Guinness:MAC:Living:16in Living"else if pp < 252 thengo to card ppp of stack "Guinness:MAC:Human:16in Human"else if pp < 302 thengo to card ppp of stack "Guinness:MAC:World:16in World"else if pp < 358 thengo to card ppp of stack "Guinness:MAC:Technology:16in Technology"else if pp < 456 thengo to card ppp of stack "Guinness:MAC:History:16in History"else if pp < 498 thengo to card ppp of stack "Guinness:MAC:Religion:16in Religion"else if pp < 566 thengo to card ppp of stack "Guinness:MAC:Arts:16in Arts"else if pp < 600 thengo to card ppp of stack "Guinness:MAC:Music:16in Music"else if pp < 656 thengo to card ppp of stack "Guinness:MAC:Language:16in Language"elseanswer "Sorry, Countries of the World is not available here."end ifend WTIgotopage</script>
